(finder-compile-keywords): Use `mapc' rather than `mapcar'.

diff --git a/lisp/finder.el b/lisp/finder.el
index 11da543bfe7993f3b1eb958f3d371c942c07c3d1..d1438dbf17e071fcc2f05e9a886f59bdc5c8da93 100644 (file)
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -134,7 +134,7 @@ no arguments compiles from `load-path'."
       (insert ";; Don't edit this file.  It's generated by finder.el\n\n")
       (insert ";;; Code:\n")
       (insert "\n(setq finder-package-info '(\n")
-      (mapcar
+      (mapc
        (lambda (d)
         (when (file-exists-p (directory-file-name d))
           (message "Directory %s" d)